home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Singing Fun! / Sunday Savers: Singing Fun!.iso / pc / intro.dxr / 00020_accept.ls < prev    next >
Encoding:
Text File  |  2009-10-07  |  267 b   |  11 lines
  1. on mouseDown
  2.   sprite(18).member = "buttonDown"
  3. end
  4.  
  5. on mouseUp
  6.   global programTitle
  7.   sprite(18).member = "buttonUp"
  8.   baWriteRegString("Software\Covenant\" & programTitle, "Registration", "Accepted " & the short date, "HKEY_LOCAL_MACHINE")
  9.   go(the frame + 1)
  10. end
  11.